!***************************************
FINISH
/CLEAR
/FILN, E41  
/TITLE, VORTEX
/UNITS,SI	!ùʵλ
! ********* 趨*********
R1=775		! Ͳڰ뾶
T1=100		! Ͳ
R2=800		! ڰ뾶
T2=48		! Ǻ
L=95		! Ͳ߳                 
LC=1200	        ! Ͳ峤
P=16 		! ѹ
E=2E5		! ϵģ
NU=0.3		! ϲɱ
NT=5		! ȷʷ
NS=30		! Ǿʷ
NC=30		! Ͳʷ
NL=5		! ɶʷ
RA=0.6		! ʷֱ
! *********ǰ********* 
/PREP7
ET,1,82			! 嵥Ԫ 
KEYOPT,1,3,1		! 趨Գѡ 
MP,EX,1,E		!ϵĵģ
MP,NUXY,1,NU		!ϵĲɱ
CYL4,,,R2,0,R2+T2,90	!ǲ
BLC4,R1,0,T1,-LC+L	!Ͳ岿
WPROT,,-90		!תƽ
WPOFF,,,L		!ƶƽ
ASEL,S,LOC,Y,0,R2+T2	!ѡǲ
ASBW,ALL		!ùƽָǲ
ASEL,S,LOC,Y,0,L	!ѡӦɾǲ
ADELE,ALL,,,1		! ɾӦɾĲ
K1=KP(R1,0,0)           !ȡɶεĽڵ1
K2=KP(R1+T1,0,0)	!ȡɶεĽڵ2
KSEL,S,LOC,Y,L	
*GET,K3,KP,,NUM,MIN	!ȡɶεĽڵ3
*GET,K4,KP,,NUM,MAX	!ȡɶεĽڵ4
ALLS		        !ȫѡ
A,K1,K2,K3,K4		!ɹɶ
!  ʷ
LSEL,S,LOC,Y,-LC+L      !ѡںص߶
LSEL,A,LOC,Y,0
LSEL,A,LOC,Y,L
LSEL,A,LOC,X,0
LESIZE,ALL,,,NT,,,,,1   !趨ںʷ
LSEL,S,LENGTH,,LC-L	!ѡͲڱھ߶
LSEL,R,LOC,X,R1
LESIZE,ALL,,,NC,1/RA,,,,1!趨Ͳڱھ߶εʷ
LSEL,S,LENGTH,,LC-L	 !ѡͲھ߶
LSEL,R,LOC,X,R1+T1
LESIZE,ALL,,,NC,RA,,,,1		!趨Ͳھ߶εʷ
LSEL,S,RADIUS,,R2		!ѡھ߶
LSEL,A,RADIUS,,R2+T2
LESIZE,ALL,,,NS,RA,,,,1         !趨ھ߶ʷ
LSEL,S,LOC,Y,0,L		!ѡɶھ߶
LSEL,U,LOC,Y,0
LSEL,U,LOC,Y,L
LESIZE,ALL,,,NL,,,,,1 		!趨ɶھ߶ʷ
ALLS
AMESH,ALL		        !ʷ
FINI
! ********** **************
/SOLU
NSEL,S,LOC,Y,-LC+L		!ѡͲ׶˸ڵ
D,ALL,UY		        !ʩλԼ
NSEL,S,LOC,X,0		        !ѡǶԳϵĸڵ
D,ALL,UX		        !ʩˮƽλԼ
LSEL,S,LINE,,3,8,5
LSEL,A,LINE,,10
NSLL,S,1
SF,ALL,PRES,P		        !ʩѹغ
ALLS
SOLVE		                !
FINI
!**********  **************
/POST1
PLNSOL, S,INT, 2,1.0		!ʾӦͼ
FINI
